﻿Imports FM.NetBouncer
Imports System.Configuration

Module Module1

    Sub Main()

        Console.WriteLine(NetBouncer.GetInstance.ToString())
        Console.WriteLine(System.Reflection.Assembly.GetExecutingAssembly())

        For Each X As IRule(Of String) In NetBouncer.GetInstance.RuleSets("ConsoleIsInt").CustomRuleCollection
            Console.WriteLine(X.IsValid("ferruh"))
        Next

        For Each X As IRule(Of String) In NetBouncer.GetInstance.RuleSets("Dividable").CustomRuleCollection
            Console.WriteLine(X.IsValid("15"))
            Console.WriteLine(X.IsValid("14"))
        Next

        Console.Write(New String("-"c, Console.WindowWidth))
        Dim TestParam As New BaseParameter(Of String, Integer)("15", NetBouncer.GetInstance().RuleSets("Dividable"))
        Console.WriteLine("Dividable :" & TestParam.IsValid())
        Console.WriteLine(TestParam.Value)

        TestParam.SetValue("20")
        Console.WriteLine("Dividable :" & TestParam.IsValid())
        Console.WriteLine(TestParam.Value)
        Console.ReadLine()
    End Sub




End Module
